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? EXECUTE PATCH/MERGE 


PACKET 1025 


INPUT 
TIME 
DATE 


32 CARDS FROM CRA 


1553 
77012 WEDNESDAY» 01/12/77 


wan MESSAGE OF THE DAY «** 


WELCOME TO B5700 TIME SHARING, 
MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 


FROM THE STAFP OF THE BIG BAD BURROUGHS. 


#w* BURROUGHS B5700 TSMCP MARK XV1-0¢69 AND INTRINSICS MARK XVJI90e00 #8 


? EXECUTE PATCH/MERGE 


? FILE CARD® PMCARD 
? DATA PMCARD 


PEND. 


AtPATCH/MERGEs 2 BOY 1553 10/12/76 4 
CDA IN PMCARDSPATCH/MERGE® 2 s 
PBD1025 OUT O11 LINESPATCH/MERGE® 2 ne 8 7 = 
DKA OUT SER MASTERF QOQQOOOQIPATCH/MERGE= 2 Sov iy 
DKA QUT SER PATCHDE OOQOOOOSPATCH/ MERGES 2 
DKA OUT SER SORTLIN OOQQOQOSPATCH/MERGE® 2 
CDA REL PMCARDSPATCH/MERGEs 2 


PATCHDEZ0000000/00000008 0 SEGS**CREATED 01/12/77 aT 00821423232 
DKA REL PATCHDE OOQQQ008PATCH/MERGES 2 

SORTLINZ0000000/00000008 450 SEGS*=CREATED 01/12/77 AT 15453934545 
DKA REL SORTLIN OOOCQOOOFPATCH/MERGES 2 

PBD1025 REL 011 LINE 8OSPATCH/MERGES 2 

MASTERF/0000000/0000000= 300 SEGS==CREATED 01/12/77 AT 158533829839 
DKA REL MASTERF OOQQQOOSPATCH/MERGE= 2 

PATCH/MERGE= 2ePST® 4 EQ, 

PKT#1025 REMOVED 


LABEL 


RED KEKKEE 


OOODQO000OLINE 


004177012? EXECUTE PATCH/MERGE 
BURROUGHS B=5700 PATCH/MERGE PROGRAM MARK XVI,0,00 


INPUT 


S@CARD CONFLICTS LIST NONO MERGE ZIP 
$2 1 PATCHES FOR Copy 


$* 
$* 
$* 
$* 
$* 
$v 
$* 


SSET SINGLE 


COMPILE 


TSPOL STACK = 1024 , 
TSPOL FILE 
CORE = 4000, 
STACK ® 2566 
DATA CARD 


CARD INPUT IS PMCARD 
PATCHES/COPY IS NOT ON DISK 
PATCH /COPY TS NOT ON DISK 


NUCOPY/CANDE WITH TSPOL LIBRARY 

COMMENT TSPOL STACK ISN@T GIG ENOUGH 
TAPE = SyMBOL/COPY OISK SERIAL 

COMMENT SETS CORE EST FOR CANOE TO 4000 WORDS 
CANDE STACK NEEDS NO MORE THAN 256 WORDS 


weewe THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC wewwe 


$SET LIST SINGLE 
SSET SINGLE RESET LIST 


$SET TAPE 


S#PATCH NUMBER 900 FOR COPY CONTAINS 


FILE OUT PRNT 


13 CARDS 


17 (€2017)3 * UNIT * 2 


FILE OUT LPAPRNT 15 "LPAa™ "|; PA" (291793 

FILE QUT LPBPRNT 15 "LPa” "LPB" (2017) 

SWITCH FILE PRINTFILES ¢® PRNT»s LPAPRNTs LPBPRNTS 
OSam35LIT"RECORDS COPIED, LAST RECORD COPIED="3 
DEFINE XO = OUTPUTNAME.(636]#3 

REAL, WHICHPRNT3 


PRINTER t# XOs"o" OR xOxe"5" OR xOao3 


WHICHPRNT#= IF XO8"2" THEN 0 ELSE IF xO""5" THEN 1 ELSE 23 

IF PRINTER THEN WRITECPRINTFILESC WHICHPRNTICOBL J eI eAC*)) 
ELSE WRITECPNCHs I» ale) )3 

IF PRINTER THEN WRITECPRINTFILESCWHICHPRNTJCOBL))5 
WRITECPRINTFILESCWHICHPRNT J» Je AL*)) 3 

$? By MJP AND TYP = UCSC CENTRAL 


% COPY TO PRINTERs LPAs OR LPB 


00011600 
00011610 
00011620 
009031750 
00017900 
00038640 
00038650 
00040900 
00041050 
00047700 
000477140 
00047800 
00055400 


ce) 


OAM ANQANAADACAND: 


WEDNESDAYs O1/12/77>» 


0900 


0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 


3153 PM, 


PATCH 


Het ee Ht i te ee ee RETR HEEKKEEHEEEEEENE REE EATEKENEN KN KRHA 


MERGE 


eos 


©@ 
@ aewenxkekinw GENERATED QUTPUT a tae tt Re i ee RW ERT EHR EERE RENEE EERE KEENER ae 
@ 
? COMPILE NUCOPY/CANDE WITH TSPOL LIBRARY 00000001 
? TSPOL STACK » 1024 « COMMENT TSPOL STACK ISN@T GIG ENOUGH 00000002 
So ? ‘TSPOL FILE TAPE = SYMBOL/COPY DISK SERIAL 00000003 
? CORE % 4000. COMMENT SETS CORE EST FOR CANDE TO 4000 WORDS 00000004 
? STACK # 256, CANOE STACK NEEDS NO MORE THAN 256 WORDS 00000005 
® ? DATA CARD 0000000H 
$SET LIST SINGLE 
SSET SINGLE RESET LIST 
e SSET SINGLE 
$SET TAPE 
FILE OUT PRNT 17 ¢€2017)3 Z UNIT *® 2 00011600 c 0900 
rd] FILE OUT LPAPRNT 15 "LPA™ "LRA" (2917) 00011610 ¢ 0900 
FILE OUT LPBPRNT 15 "Lea" "LPB (2017)3 00011620 ¢ 0900 
f SWITCH FILE PRINTFILES 1:5 PRNTs LPAPRNTs LPBPRNT? 00011750 ¢ 0900 
a DS#te35LIT"RECORGS COPIED» LAST RECORD COPIEDS"; 00017900 ¢ 9900 
. DEFINE xO = OQUTPUTNAME,(616)#3 00038640 C 0900 
REAL WHICHPRNT3 00038650 ¢ 90900 
@ PRINTER t* xO#"2" OR xOs"5" OR xO="6"5 % COPY TO PRINTER», LPAs OR LPB 00040900 C 0900 
WHICHPRNTS$= IF xO#"2" THEN O ELSE IF XO®"5" THEN 1 ELSE 23 00041050 ¢ 0900 
IF PRINTER THEN WRITECPRINTFILESCWHICHPRNT JLCDBL Jel eAL*)) 00047700 ¢ 0900 
ELSE WRITECPNCHa ls Ale) )3 00047710 C 0900 
IF PRINTER THEN WRITECPRINTFILESCWAICHPRNTICOBLI)3 00047800 ¢ 0900 
WRITECPRINTFILESEWHICHPRNTJ9JsALe))3 00055400 c 0900 
ENO, 99999999 ¢ 0900 
? END, . 0000000H 
NUMBER OF ERRORS DETECTED # 0, 
PROCESSOR TIME = 3 SECONDS» 
I/0 TIME # 8 SECONDS, 
LABEL OOQQOQ0Q000LINE 001770127 EXECUTE PATCH/MERGE PATCH /MERGE 


4 


7 


. ae 4 amerisg 


COMPILE NUCOPY/CANDE WITH TSPOL LIBRARY 


PACKET 1026 

INPUT 25 CAROS FROM ZIP 

TIME 1553 

DATE 77012 WEDNESDAY» 01/12/77 


wae MESSAGE OF THE DAY wee 


WELCOME TO 85700 TIME SHARING, 
MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN, 
FROM THE STAFF oF THE BIG BAD BURROUGHS, 


#*% BURROUGHS B5700 TSMCP MARK XVI.0.69 AND INTRINSICS MARK XV1e0000 ##« 


? COMPILE NUCOPY/CANDE WITH TSPOL LIBRARY 
? TSPOL STacK# 1024. COMMENT TSPOL STACK ISN@T GIG ENOUGH 
? TSPOL FILE TAMEs SYMBOL/COPY DISK SERIAL 
? CORE= 4000. COMMENT SETS CORE EST FOR CANDE TO 4000 WORDS 
9? STACK= 2564 CANDE STACK NEEDS NO MORE THAN 256 WORDS 
? DATA CARD 
AtTSPOL/NUCOPYa01 SCHEDULED 15532 BACKGROUND 
G'TSPOL/NUCOPY® 2 80 4553 08/28/76 
CDB IN CARD DBITSPOL/NUCOPY® 2 
DKA IN SER SYMBOL CUPYSTSPOL/NUCOPY= 2 
DKA QUT RDM NUCOPY CANDESTSPOL/NUCOPY® 2 
DKA LOK NUCOPY CANDESTSPOL/NUCOPYs 2 
DKA REL SYMBOL COPY&TSPOL/NUCOPY=™ 2 
COB REL CARB OBS TSPOL/NUCOPYs 2 
7END, 
TSPOL/NUCOPYS 2ePST® 21 EQy 
PKT#1026 REMOVED 


i me 


